home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / GASFORM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.9 KB  |  44 lines
  1. 5  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '*****************   GAS/DIESEL MILEAGE CHART  *****************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN     AUTOMOBILE AND RECREATIONAL VEHICLE MILEAGE AND TRIP RECORD         OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN   This program produces a chart and record which is suitable for re-    OPEN
  7. 24  'OPEN cording daily & trip mileage in an automobile or R.V.  It is suitable   OPEN
  8. 26  'OPEN for tax records, if appropriate. The headings include: Octane, location OPEN
  9. 28  'OPEN of fuel purchase, date, odometer reading, cost/gallon; # of gallons     OPEN
  10. 30  'OPEN purchased, total $$$ paid, total mileage between fill ups; and miles    OPEN
  11. 32  'OPEN per gallon.  The daily trip portion indicates the location of the over- OPEN
  12. 34  'OPEN night stop, the odometer reading, and the total daily (trip) mileage.   OPEN
  13. 35  'OPEN   Try this form on your next trip.  The results are interesting.        OPEN
  14. 36  'OPEN                     (c) G I N A C O  -- 1983          Ver 5.2/160/320   OPEN
  15. 50  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  16. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  17. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  18. 60  CLS
  19. 100  SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  20. 110  LPRINT CHR$(27);CHR$(64);
  21. 120  LPRINT CHR$(15);
  22. 130  WIDTH "LPT1:",132
  23. 140  CLS:LOCATE 10,25:INPUT"Number of copies ",N
  24. 150  FOR NUMBER = 1 TO N
  25. 160  LPRINT STRING$(4,10);
  26. 170  LPRINT TAB(35)"AUTO & REC-V MILEAGE/FUEL RECORD -- DAILY AND TRIP MILEAGE";
  27. 180  LPRINT CHR$(27);"U"+CHR$(1);
  28. 190  LPRINT CHR$(27);CHR$(50)
  29. 200  LPRINT "__________________________________________________________________________________________________________________________________";
  30. 210  LPRINT "I OCT  I   LOCATION    I  DATE    I  ODOMETER  I $$/GAL  I T/GALS. I  T/$$$   I TOT/M I  M/GAL II  O'NITE   I  ODOMETER  I MILES I";
  31. 220  LPRINT CHR$(27);CHR$(48)
  32. 230  LPRINT "I------I---------------I----------I------------I---------I---------I----------I-------I--------II-----------I------------I-------I";
  33. 240  FOR I = 1 TO 34
  34. 250  LPRINT "I      I               I          I            I         I         I          I       I        II           I            I       I";
  35. 260  LPRINT "I------I---------------I----------I------------I---------I---------I----------I-------I--------II-----------I------------I-------I";
  36. 270  NEXT
  37. 280  LPRINT "I  T O T A L S:        I          I            I         I         I          I       I        II           I            I       I";
  38. 290  LPRINT "I______________________I__________I____________I_________I_________I__________I_______I________II___________I____________I_______I"
  39. 300  LPRINT CHR$(12)
  40. 310  NEXT NUMBER
  41. 320  END
  42. 65000  '************************* SAVE ROUTINE ********************************
  43. 65100  SAVE"B:GASFORM.BAS"
  44.